Acesso à Internet nas Escolas do Cerrado: 2015 vs 2023
Date: August 6, 2025
Conectividade educacional no Cerrado
A presença de internet nas escolas é uma condição fundamental para a promoção da inclusão digital e para o desenvolvimento de competências do século XXI. Utilizando dados agregados por município, este post apresenta um comparativo espacial da proporção de escolas com acesso à internet no bioma Cerrado, entre os anos de 2015 e 2023.
Principais avanços
Em 2015, a maioria dos municípios apresentava menos de 50% das escolas com acesso à internet, com vários vazios de conectividade especialmente no Maranhão, Tocantins, norte de Minas Gerais e oeste da Bahia.
Em 2023, há um avanço expressivo: grande parte dos municípios supera 75% de cobertura, com destaque para Mato Grosso, Goiás e o Distrito Federal.
Apesar disso, persistem bolsões de exclusão digital no norte do Cerrado, principalmente em áreas rurais e de fronteira agrícola.
Código do mapa (R)
Code
library(ggplot2)library(ggspatial)library(shadowtext)library(MetBrewer)library(gridExtra)# Garantir que ambos os lados da comparação estão como character de 6 dígitos# Certifique-se que a coluna esteja limpa nas duas basesMun_Cerrado_MDR <- Mun_Cerrado_MDR %>%mutate(code_muni6 =as.character(code_muni6))mun_educ_sf <- mun_educ_sf %>%mutate(code_muni6 =as.character(code_muni6))# Filtrar municípios do Cerrado corretamentemun_educ_cerrado_sf <- mun_educ_sf %>%filter(code_muni6 %in% Mun_Cerrado_MDR$code_muni6)# Paletapaleta_internet <- MetBrewer::met.brewer("Hokusai1", 7)# Mapa A - 2015mapa_internet_2015 <-ggplot() +geom_sf(data = mun_educ_cerrado_sf, aes(fill = educ2_2015),color ="black", linewidth =0.2) +geom_sf(data = ufs_cerrado, fill =NA, color ="gray30", linewidth =0.6) +geom_sf(data = ufs_cerrado, fill =NA, color ="black", linewidth =0.8) +geom_shadowtext(data = ufs_cerrado,aes(x = lon, y = lat, label = abbrev_state),color ="white", bg.color ="black", size =2.5, fontface ="bold" ) +annotation_scale(location ="bl", width_hint =0.25) +annotation_north_arrow(location ="tl", which_north ="true",style = north_arrow_fancy_orienteering,height =unit(1, "cm"), width =unit(1, "cm") ) +scale_fill_gradientn(colors = paleta_internet,limits =c(0, 100),name ="Escolas com \nAcesso à Internet (%)",na.value ="white" ) +labs(title ="A.2015", x =NULL, y =NULL) +theme_minimal(base_size =12) +theme(plot.title =element_text(hjust =0.5, face ="bold", size =14),legend.position ="right",panel.grid =element_blank(),axis.text =element_blank(),axis.ticks =element_blank() )mapa_internet_2015# Mapa B - 2023mapa_internet_2023 <-ggplot() +geom_sf(data = mun_educ_cerrado_sf, aes(fill = educ2_2023),color ="black", linewidth =0.2) +geom_sf(data = ufs_cerrado, fill =NA, color ="gray30", linewidth =0.6) +geom_sf(data = ufs_cerrado, fill =NA, color ="black", linewidth =0.8) +geom_shadowtext(data = ufs_cerrado,aes(x = lon, y = lat, label = abbrev_state),color ="white", bg.color ="black", size =2.5, fontface ="bold" ) +annotation_scale(location ="bl", width_hint =0.25) +annotation_north_arrow(location ="tl", which_north ="true",style = north_arrow_fancy_orienteering,height =unit(1, "cm"), width =unit(1, "cm") ) +scale_fill_gradientn(colors = paleta_internet,limits =c(0, 100),name ="Escolas com \nAcesso à Internet (%)",na.value ="white" ) +labs(title ="B.2023", x =NULL, y =NULL) +theme_minimal(base_size =12) +theme(plot.title =element_text(hjust =0.5, face ="bold", size =14),legend.position ="right",panel.grid =element_blank(),axis.text =element_blank(),axis.ticks =element_blank() )# Juntar os dois mapas verticalmentep_final_internet <-grid.arrange(mapa_internet_2015, mapa_internet_2023, ncol =1)# 5. Exportarggsave(filename ="graficos_ponderados/3_mapa_internet_escolas_cerrado_2015_2023.png",plot = gridExtra::grid.arrange(mapa_internet_2015, mapa_internet_2023, ncol =1),width =8,height =10,dpi =300,bg ="white")